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ABSTRACT 
THIS PROGRAM WILL TEST UP TO EIGHT RPO2/RPO3 DRIVES 
ON AN RPLIC DISK CONTROLLER. BASICALLY, THE PROGRAM 
WILL SEEK TO A RANDOM A RESS THEN WRITE AND 
AD RANDOM DATA. WHILE DATA IS BEING TRANSFERRED, 


SEEK OPERATIONS WILL BE IN PROGRESS ON THE 
I T TO CHECK FOR ANY 


DRIVES. THE PURP EST IS 
INTERACTION ON THE BUS WHILE TRYING TO KEEP ALL THE 
DRIVES BUSY. 


REQUIREMENTS 


EQUIPMENT 
PDP-11 STANDARD FAMILY PROCESSOR 


RP11C DISK CONTROLLER WITH UP TO EIGHT RPO2/RPO3 
DISK DRIVES 


2.2 STORAGE 
4K OF STORAGE IS REGUIRED TO RUN THIS TEST 


PRELIMINARY PROGRAMS 


DZRPA DISKLESS DIAGNOSTIC 
DZRPB DISK RELIABILITY DIAGNOSTIC 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ABS TAPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE §.1.1 
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TARTING ADDRESS 


THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 


PROGRAM AND/OR OPERATOR ACTION 


rn £& WwW TJ 


LOAD PROGRAM INTO MEMORY USING ABS LOADER 
LOAD ADDRESS 200 
SET SWITCHES (SEE SEC. 5.1.1) 
PRESS START. 
THE PROGRAM WILL LOOP UNTIL STOPPED 
DUE 70 THE RANDOM NATURE OF THE PROGRAM THERE IS 
NO MEANINGFULL PASSCOUNT. a IS renee 
THAT BL Aas td gee) Gs regs HOU 
EACH OF THE FOUR Test FUNCTIONS ON EACH DRIVE’ 


ONLY ONCE. THIS IS TO ENSURE aad THE DRIVES ARE 
BASICALLY ’THERE’ AND ORLNNING. ) 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 


4 
W 


T STARTING ADDRESS 200, THE SETTING OF THE SWITCHES 
ILL DETERMINE WHICH UNITS ARE TO BE TESTED. 


SWITCH SETTING ARE: 


eats) st cones HALF ON ERROR 


oe en NOT USED 
ecia>e! ceees oaks Hw PRINTOUT 
ot! an USED 

auc t}) seeee NOT USED 
SW<10>=1..... BELL 


ON ERROR 
SW<O7> THRU SW<OO>=1..... SELECT UNIT FOR TEST 


SW<O0> CORRESPONDS TO UNIT 0 
SW<07> CORRESPONDS TO UNIT 7 


“ 
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Medd sOgREC-A, iBPAAS. Oued: TPRIVE MACY11 30(1046) O6-JUN-77 14:48 PAGE 7 


$.2.1 “tT 


Ha 5g ® e ee “” + tbs y hs ie ae 


EERGE RGRERT*PUneoDHES RRUTAMGEERE bate, AON 


5.2.2 TRAP CATCHER 


at Rb lec HUEYeel® "HORT D ESRF tol 


NTERRUPTS WILL HALT AT THE 


6.0 ERRORS 
ae ERROR OROCON wert el ERENTENTS” ARPDS. R or 
RFCS a3 TYeeD ALSO, “ie oRONTENTS CAC mare 


REFERRING ON THE CISTI, OCOTTTONEL INFORMATION CAN 
BE FOUND REGARDING THE CAUSE OF THE ERROR INTHE 
COMMENT ADDITIONAL 


WHEN APPROPR 
INFORMATION IS TYPED OUT, SUCH Re Aree EXPECTED BND 
RECEIVED RESULTS OF AN SPERATION. ALL INFORMATION 


ERROR MESSAGE FORMAT 


1. PC= ADDRESS OF FAILURE 
UNIT UNIT WHICH FAILED 
RPOS CONT POS 


SECTOR SELECTED SECTOR 
EXPECTED EXPECTED DATA 
RECEIVED RECEIVED DATA 


7.0 RESTRICTIONS 


SINCE THIS IS_ AN INTERACTION TEST, THERE IS NO 
LOOPING ON ERRORS. 
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8.0 MISCELLANEOUS 


8.1 EXECUTION TIME 


DUE TO THE RANDOM NATURE OF THE PROGRAM THERE IS NO 
NINGFUL PASS COUNT. IT IS RECOMMENDED THAT THE 


MEA 
PROGRAM D RUN FOR HALF AN HOUR 
Pepe RoE IN GAPE oR EXPLANATION OF QV PASS) 


8.2 STACK POINTER 
STACK IS INITIALLY SET TO SOO. 


8.3 ERROR INFORMATION 


IF IT IS DESIRED TO HAVE THE ERROR INFORMATION 
OUTPUTTED TO THE PUNCH INSTEAD OF THE TELETYPE 
CHANGE THE FOLLOWING THREE LOCATIONS. 


LOCATION FROM TO 
1304 177564 177554 
1332 177566 177556 
1336 177564 177554 


3.0 PROGRAM DESCRIPTION 
BS STE MEE th STO Ee EE 
SEQUENCE IS GONE FOR Eh OF THE gt oun ED 
UNITS. FIRST, A "RENO ISK SURFACE ADDRESS 1 
UF 
SECTOR IS THEN WRITTEN, READ BACK AND COMPARED. 
THIS SEQUENCE IS PED UPON. DUE TO THE 
DIFFERENCE IN SEEK TIMES. WHICH DEPENDS ON THE 

RANDOM ADDRESS SELECTED, ALL UNITS | ARE 


DISK 
EXERCISED IN A RANDOM SELECTION. WHILE DATA IS 
BEING TRANSFERRED, SEEK OPERATIONS ARE IN PROGRESS. 
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313 ;COPYRIGHT 1972,1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
351 ;CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS 
323 ;GENERAL REGISTER ASSIGNMENTS 
324 ooooce RO=%0 
325 000001 R1l=%1 
5 Be 
§ R3=% 
8 R4=%4 
329 000005 RS=4S 
330 O00 SP=%6 
331 007 PC=%7 
333 ;STATUS REGISTER (PSW) BIT ASSIGNMENTS 
334 900001 C=] :C BIT 
335 00 V= :V BIT 
336 090004 Z=4 -2 BIT 
337 090010 N=10 -N BIT 
338 000020 T=20 ‘T BIT 
339 000340 PRI7=340 ‘PRIORITY LEVEL 7 
349 000300 PRI6=30 i PRIORITY LEV L : 
341] 000240 PRIS=24 ‘PRIORITY LEVEL 
42 000200 PRI4=200 ‘PRIORITY LEVEL 4 
343 00014 PRI3=140 :PRIORITY LEVEL 3 
344 000100 PRI2=100 *PRIORITY LEVEL 
346 00004 PRI1=40 ‘PRIORITY LEVEL | 
347 : VECTOR BDDRESSES 
348 ooooo4 RRVEC=4 ;ERROR VECT 
349 000010 RESVEC=10 : RESERVED INer VECTOR 
350 060014 TBITVEC=14 ‘T BIT VECTOR 
351 000020 IOTVEC=20 :I0T TRAP VECTOR 
362 po0024 FYEC=24 :POWER FAIL VECTOR 
353 000030 EMTVEC=30 :EMT VECTOR 
34 099034 TRAPVEC=34 : TRAP VECTOR 
356 ;REGISTER ADDRESSES 
357 177776 PSW=177776 spROce SOR STATUS REGISTER 
358 177560 TKS=177560 ARD C 
359 177562 TKB=177562 S008 NSE LEOBRD BUFFER 
360 177564 TPS=177564 :T 
361 177566 TPB=177566 t TELEPRINTER BUFFER 
362 177570 SWR=177570 “CONSOLE SWITCH REGISTER 
363 177570 DISPLAY=177570 ‘CONSOLE DISPLAY REGISTER 
365 ; INITIAL STACK POINTER 
366 000500 STKPTR=S00 ;PROGRAM STACK POINTER 
368 :BIT ASSIGNMENTS 
369 ,op999 15= =1000 0 
370 40000 4=4000 
371 020000 B13=20000 
372 019000 Bl2=10000 
273 094000 811=4000 


POR dA DgREC- “A, A C ¢ Out TT: TBRIVE 


SH 


177572 


000000 


104400 
104000 


MACY11 30(1046) 


; MEMORY 


B10=2000 


ta 
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MANAGEMENT REGISTER ASSIGNMENTS 


SRO=177572 


KIPOR7=172316 
RW=6 
UP=00 


; INSTRUCTION EQUATES 
HLT=TRAP 


SCOPE=EMT 


; INDEX OF MACROS 
- SCOPE 


INDEX OF CALLS 
COPE 


AVE 
REST 


;HLT IS A TRAP TO THE ERROR ROUTINE 
;SCOPE IS AN EMT TRAP 


LO 
AREA -DERRC-A, B RP11C ¢_Dyt Ta: 7bRIVE MACY11 30(1046) O&-JUN-77 14:48 PAGE 11 


Sie 
BONoe Bz 
33 


460 000200 .=200 
461 000200 Bhan 002350 MOV 5 #START,PC ;G0 TO START OF TEST 


462 1 .=100 
463 601900 000000 ICNT: OQ s CONTA TINS | PASS COUNT 
464 001092 000000 LAD: 0 ;PROGRAM TRACE 
465 ;SCOPE (EMT) SERVICE ROUTINE 
466 ;THIS ROUTINE WILL LOOP IF AN ERROR OCCURED AND 
;LOOP ON ERROR SWITCH IS SET (BIT 14). IF LOOPING IS INDICATED 
NTENTS OF " EQU ADDRESS. IN ORDER 


468 ;THE CO “LAD AL THE LOOP 
469 ;TO LOOP ON ERROR, BIT 14 OF THE SWITCH REGISTER MUST BE SET AND 
470 ‘LOCATION “ERRFLG* MUST BE NEGATIVE INDICATING AN ERROR. ONCE THE 
ak ‘LOOP IS INITIATED IT WILL CONTINUE UNTIL SWITCH 14 IS CLEARED. 
473 001004 032737 O40000 177570 SCOPES: BIT #B14, J8SWR ;LOOP ON ERROR? 

474 001012 001403 BEQ 2s BRANCH IF NO 

475 001014 005767 000232 TST ERRFLG ‘1S THERE AN ERROR? 

476 001020 001003 BNE 1$ BRANCH IF Y 

477 001022 005067 900224 2S: CLR ERRFLG ;RESET MERROR CONDITION 

478 001026 o00002 RTI 

479 001030 O16716 177746 1S: MOV LAD, (SP) MODIFY RETURN ADDRESS 

480 001034 o00002 RTI 

481 ;ROUTINE TO SAVE REGISTERS ON THE STACK. 

4B2 “CALLED BY SAVE MACR RO 

483 001036 012667 oD0020 SAVES: MOV (SP) ;SAVE RETURN PC 

484 001042 O10S46 MOV oF taps 

485 O01044 O10446 MOY Ra (8p) 


BORbACOBRTS A: BPAMG OWL TE DRIVE 


Supe GR 


3 


S8888888SSSSSSSSSSS8SSSSSS8S8S888S 


WUT UU Un ot 
bb be bh bh be bs bb hb bb bb bh be be pe he te 


te ee 
WONMUW CWO 


SOROS Res 


w 
w 
_— 


— 
or 


SRR ESSSRRERES 


NEROR ERE ER ORR ER SSS 


“No 
Ms 


010346 
010246 


° 
= 
e 
° 
~ 


012603 


001276 


000000 


000020 


000090 


005015 
000 


177570 


177570 


OOO0&E 


000046 


000006 


041520 
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MOV R3,-(SP) 
MOV R2, -(SP) 
RB i: ={8P} 


; RETURN 
1$: O ‘CONTAINS RETURN ADDRESS 
;ROUTINE TO nestonE REGISTERS SAVED ON THE STACK 
“CALLED BY REST MACRO 


RESTS: MOV (SP)+, 1! ;SAVE RETURN PC 
MOV (5P)+; 
MOV (5P)+°R 
MOV (SP)+'Ro 
MOV (SP)+'R3 
MOV (SP)+°R4 
MOV (SP)+)RS 
MOV 15,PC »RETU 
1S: 0 contains RETURN ADDR 
s ERROR SERVICE ROUTINE CALLED 8 
THIS ROUTINE WILL HALT ON RROR HEING THE BELL, AND 
j TRANSFER CONTROL TO A USER SUPPL IED ROUTINE TF’ SPECIFIED 
ERROR: TST aaSWR ;HALT ON ERROR? 
BPL : H IF NO 
HALT 
3$: BIT #811, d8SWR RING THE BELL? 
BEQ ‘BRANCH IF NO 
ISR RS, PRNTFS FORCE PRINT THE MESSAGE 
1S: BIT #813, aSWR ;SKIP_TYPEOUT? 
BNE ‘BRANCH IF YES 
JSR RS, PRINTS ‘PRINT MESSAGE 
MOV (6) ,HLTADS iGET ERROR PC+2 
SUB #2, HLTADS MODIFY 
MOVB @HLTADS.HLTCTS SAVE HLT ARGUEMENT 


MOV HLTADS, TTY 


JSR PC, PRIATR ; TYPE LOCATION WITH LEADING ZEROS 


JSR C’MSG :GO TO USER ERROR ROUTINE 
2$: CMP aed2, a846 “ARE WE IN ACTI1 AUTO MODE? 

BNE +4 ?BRANCH IF NOT 

HALT ‘HALT ON ERROR IF YES 

TST JaSWR *HALT ON ERROR IN SWR? 

EPL 4§ ‘BRANCH IF NO 
4g: BIS #815, ERRFLG ;SET ERROR FLAG 

Inc ERRORS ‘UPDATE ERROR COUNTER 
ERRFLG: 


;PC OF ERROR 
ERROR COUNT 


<7) 
€15><12><15><12>’PC= ° 


0 
HLTCT$: O 
HLTADS: 0 
ERRORS: 0 
BELL: .ASCIZ 
ERRPC: .ASCIZ 


- EVEN 
i THIS ROUTINE WILL PRINT AN ASCIZ MESSAGE. 
;THE MESSAGE MUST TERMINATE IN 0 


Ob OeEC A, RP11C TI-DRIVE MACY11 30(1046) O6-JUN-77 14:48 PAGE 13 
DZRPCC.P11 18-MAY-77 12:50 


sie 001276 032737 020000 177570 PRINTS: BIT 4813, 98SHR j INHIBIT Type ouTS? 
oe ; 
2qa BB 382 3h ooo002 rid #2,R5 : UPDATE FF URN ADDR 
eue ete 1 sa 177564 PRNTFS$ ste RF TPs WAIT FOR PRINTER TO FINISH 
nO : H 
bus Boiaa | 188996 ie Tie tal 
S48 001322 O10S46 MOV RS, -(SP) 
S49 001324 062716 o00002 ADD #2; (SP) ;ADJUST RETURN PC 
550 001330 011505 MOV (RS), RS ‘GET MESSAGE ADDR 
S51 001332 105715 1S: TSTB —s_ (RS) ‘CHECK FOR TERMINATOR 
. 552 001334 001002 BNE 2$ 
553 001336 012605 MOV (SP)+,RS ;GET RETURN ADDR 
554 001340 oo020S RTS : RETURN 
S55 001342 112537 177566 2s: MOVE  (RS)+,a#TPB ‘PRINT CHARACTER 
S56 001346 105737 177564 TSTB ss MRT PS ‘WAIT TILL DONE 
557 001352 100375 BPL 4 
558 001354 O00766 BR 1$ 
559 - THIS ROUTINE TYPES A LOCATION IN OCTAL 
S60 001356 032737 O20000 177570 PRINTR: BIT #813, J8SWR ; INHIBIT TYPEOUT? 
561 001364 001406 BEQ PRINTA “BRANCH IF NO 
Sée 001366 000207 RTS PC 
S63 001370 032737 O20000 177570 PRINTS: BIT #813, d8SWR ; INHIBIT TYPEOUT? 
S64 001376 O0140S BEQ PRINTS :BRANCH IF NO 
S65 001400 000207 RTS C 
S66 001402 112767 OO0001 O00140 PRINTA: MOVB  4#1,.PR ;SET ZERO FILL SWITCH 
567 001410 oOo402 R +6 : SK 
568 001412 005067 000132 PRINTB: CLR “PR “SUPPRESS LEADING ZEROS 
S69 OO14i6 112767 177772 oo001es MOVB = #-6, .PR+1 :SET COUNT 
570 001424 O10446 .PTIT: MOV RY. -(SP) SAVE RY 
571 001426 012704 o015Se MOV #.PR+2,R4 :SET POINTER TO FIRST CHARACTER 
S72 00143e2 105014 CLRB = (RY) -CLEAR FIRST BYTE 
573 001434 13 BR . PRF ‘ROTATE FIRST BIT 
S74 001436 105014 -PRL: CLRB (RY) -CLEAR BYTE OF CHAR 
575 001440 032767 O00100 oD0102 BIT #100, .PR ‘BIT TYPING MODE 
576 OO01446 001006 BNE .PRF “YES SKIP 2 ROTATES 
577 001450 006167 000120 ROL TTY -ROTATE BIT INTO C 
578 OO1454 106114 ROLB = (4) :PACK IT 
579 001456 006167 000112 ROL TTY 
S80 001462 106114 ROLB = (4) 
S81 OO1464 006167 oO0104 -PRF: ROL TTY 
S82 001470 106114 ROLB = (4) 
S83 001472 105714 TSTB (4) ;1S IT ZERO 
584 001474 001402 BEQ +6 :SKIP_INC 
S85 001476 105267 oooo4e INCB = . PR -SET FILL SWITCH 
S86 001502 105767 oo0042 TSTB. Ss «PR :CHECK FILL SWITCH 
587 001506 001402 BEQ +6 :SKIP BITSET 
S88 001510 152724 oo0060 BISB = #0, (4) + :MAKE INTO ASCIZ CHAR 
S89 001514 105267 900031 INCB ss . PR41 “INC COUNT 
590 001520 901346 BNE "PRL : T 
591 001522 022704 oo1sse2 CMP #.PR+2,R4 ‘EMPTY BUFFER 
S92 001526 001002 BNE + ‘SKIP IF NOT 
S93 001530 112724 oo0060 MOVB = #0, (4) + “LOAD ONE ZERO 
594 001534 105014 CLRB ss (4) :NULL_ TERMINATOR 
595 001536 S67 177534 JSR RS, PRINTS :PRINT MESSAGE 
59 o01S42 o015S2 PR+2 
597 001544 012604 MOV (SP)+,R4 :RESTORE RY 


MO-11-DZRPC-A, 

DZRPCC.P11 
S98 O01S46 
$39 001550 
600 001574 
601 001576 
602 001576 
603 001602 
604 001606 
60S O00l6le 
606 001616 
607 001620 
608 O0l62e 
609 001624 
619 001626 
611 001630 
ble 001632 
613 001636 
614% 001640 
61S OO1644 
616 OO1646 
617 0016S2 
618 001654 
619 001656 
620 001662 
621 OO1664 
622 001670 
623 001672 
624 001674 
6eS 901700 
626 001704 
627 001710 
628 
629 O0171e 
630 001714 
631 001716 
632 001720 
633 001724 
634 001730 
635 001732 
636 001736 
637 001740 
638 001744 
639 001750 
640 001754 
641 001756 
642 001756 
643 001762 
644 001764 
645 001766 
646 001774 
eue 002002 
649 002006 
650 002010 
€5i 002014 
6Se 002020 
€S3 002022 
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009014 
000006 
177154 


177777 
177256 


O7e 
012603 
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R 
. BLKW 


1$: 


4§: 


177S6E 3S: 
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PC 
le 


PC, SAVES 
RO 


R3, -(6) 
sINPUTS,R3 
BINPUTS#+20,R3; 
38177560 
aulrrsse, (3) 


#200, ( 
8177, (3) 
3s 


RS, PRINTS 
1$ 
a8TKB,aeTPS 
oetPs 

#15, (3)+ 

es 

-1(3) 
RS,PRINTS 
(6)+,R3 


;SAVE THE ne 
;SET RO WITH LOW 
;SET Rl WITH HIGH 
SET SHIFT COUNT 


;SHIFT RO LEFT AND 
ROTATE CARRY INTO R1 AND 
;ROTATE_CARRY INTO Re 
:CHECK FOR DONE 

;ADD # TO MAKE : 129 
;PROPOGATE CARR 

ADD # TO Whe k 129 
;PROPOGATE C 


;PROPOGATE CARRY 
:PROPOGATE CARRY 


;RESTORE THE REGISTERS 


;SAVE R3 
:GET gl ADOR 


;WAIT FOR A CHAR 


;GET CHAR 
;GET RIO OF JUNK 
;IS ITA RUBOUT” 
;SKIP IF'NO 


;PRINT MESSAGE 


;CLEAR BUFFER AND START OVER 


;ECHO THE CHAR 


;WAIT FOR READY 
;CHECK_FOR RETURN 
;LOOP IF’NOT RETURN 
‘REMOVE THE RETURN 
:PRINT MESSAGE 


;RESTORE R3 
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654 002024 
65S 

656 002026 
657 O02066 
6$8 00e07e 
659 

660 

661 

662 

663 002074 
664 002074 
665 002100 
666 002104 
667 002106 
668 O0elle 
669 002114 
670 002116 
671 002120 
67e O0elee 
673 002126 
674 002134 
675 002140 
676 O0el4e 
677 002146 
678 O0021Se 
679 002156 
680 002164 
681 002170 
682 002172 
683 002176 
684 O0e20e 
68S 002206 
686 002214 
687 O02220 
688 O0eee4 
689 002226 
630 002232 
691 O02240 
6392 002244 
693 002250 
694 O0022S2 
695 002256 
696 O0eebe 
697 002266 
698 O0227e 
£39 002300 
700 002302 
701 002306 
702 O02 
703 O0e3le 
704 

705 002314 
706 O02316 
707 002320 
708 002324 
709 002332 


000207 


000020 
006477 
000012 


000012 


8 


Be BR 
no Soe 


88 SESEEE BEGEE 8 
Rn SAHRA POF 


ae 


8 
8 


176552 


000020 
002026 


000212 


000162 


000132 


000106 


COOO46 


000012 


_ 


fs fet 
MACY11 30(1046) O6-JUN-77 14:48 PAGE 15 


INPUTS: 


READLS: :ASCI2 


RTS 
- BLKW 


PC ;RETURN 


20 
*7°¢1S><1a> 
(12> 


; TAKE THE CONTENTS OF THE TTY INPUT BUFFER AND 
;PACK THEM INTO ONE WORD TO CREATE AN OCTAL NUMBER 


PACKS: 


2s: 


1$: 


PKEXS: 
PKEX1$: 


PACS: 


PC, SAVES :SAVE THE REGISTERS 
NUMS 

RO 

INPUTS(RO) 

1$ 

RO 

2 

RO 

PC PACS :GET OCTAL CHAR 
PK$ NUMS :PACK FIRST CHAR 
PC, PACS :GET OCTAL CHAR 
PKS 

PKS 

PKS 

PK$NUMS ;PACK SECOND CHAR 
PC, PACS :GET OCTAL CHAR 
PKS 

PKS 

PKS 

PK$, NUMS sPACK THIRD CHAR 
PC. PACS :GET OCTAL CHAR 
PKS 

PKS 

PKS, NUMS :PACK FOURTH CHAR 
PC. PACS :GET OCTAL CHAR 
PKS 

PKS 

PKS 

PKS 

PKS 

PKS, NUMS :PACK FIFTH CHAR 
PKEKIS , 

#2, SP :MODIFY STACK 

PC, RESTS ;RESTORE THE REGISTERS 
PC sEXIT 

RO 

PKEX$ 

PK 


$ 
{IPUTECAD) PKS ;GET INPUT CHAR 
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710 002334 O4e767 177770 9000002 BIC 8177770, PKS ;CLEAR UNWANTED BITS 
t S O0e342 000207 RTS PC 
723 002344 000000 PKS: 0 
ot 002346 000000 NUM§: 0 


DZRPC-A, 
-Pll 


l 


-7 


TI-DRIVE 
12:50 


20 
000010 
003000 


003202 


oOS460 


00S460 


005460 


003006 
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START: 


1$: 
CLRTAB: 


73: 


6$: 


S$: 


2s: 


1$: 


8$: 


4§: 


3$: 


LOOP: 


E02 
7 14 


06-JUN-7 748 PAGE 17 
' TKPTR p ;SET STACK POINTER 
La Pet Sip I NTEBRU TS 
centr SETUP UERROR TRAP 

a ;SETUP SCOPE TRAP 

ROSKTAT, a4VECTOR ;SET UP DISK INTERRUPT VECTOR 

aa, aug" heey ; ARE HE IN ACTL1 AUTO MODE? 

1 

RS, PRINTS : PRINT nésee ae 

RO 

DEVTBL (RO) ;CLEAR THE DEVICE TABLE 

#128. .RO 

Mat 

atte OER MONITOR CONTROL? 

RO ‘CLEAR MODIFIER 

#1,aRPCS CLEAR THE CONTROLLER 

R1’ dRPCS1 ‘SELECT UNIT 

JRPDS ?1S UNIT READY? 

6$ i BRANCH F YE 

#81S,DEVTBL(RO) :SET UNIT UNAVAILABLE BIT 

#16. /RO tOBOATE DIF 

Ri :UPDATE UNIT TENGER 

#83,R1 ?ALL UNITS TESTED? 

7$ :BRANCH IF NO 

8$ 

#1,R 

R1, a#SWR : TEST THE SWITCH REGISTER 

1$ :TO DETERMINE WHICH UNI 

#815,DEVTBL(RO) :T0 TEST. IF THE UNIT IS UNAVAILABLE 

#16. RO :SET BIT 15 IN THE DEVICE TABLE 

RI 

488, Rl ; HAVE ALL UNITS BEEN SCANNED? 
it CEaR THE SYSTEM 

RS. EXTMEN ‘DETERMINE AMOUNT OF CORE 

UNtT INITIALIZE POINTER 

PASSCT 

#81S,DEVTBL(RS) ;IS UNIT AVAILABLE? 
‘BRANCH IF NO 

PC. HOME :DO A HOME SEEK 

UNIT ‘UPDATE UNIT 

#16. ,RS :UPDATE TABLE POINTER 

#83, UNIT HAVE ALL UNITS BEEN HOMED” 

4 :NO-BRANCH 

UNIT 

RS 


SoRbtce 


772 
773 


Dommp MOWOwMwWonwowwmmnm 
AT Tap hee A Row acre Eure 
NMUMN WN OWONMU CWO 


com@mo 


Bi BenAy 9 Ibo 


002662 
002670 
002672 


032765 
00 


Boi 372 


100000 


005460 
Bs 
000020 
000010 
002734 
002730 
000004 


176326 


o0s000 
176306 
000042 


002640 
002674 


900015 
000025 


002000 
002$7e2 


000066 
003162 
000005 


005460 


002740 


177570 
002720 


002700 


002664 
002644 


002644 


000060 
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MAIN: 


1$: 


es: 


SENDAD: 


MEXITIL: 


BIT 
B 


NOP 
BR 


02 


WW 
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eels, ,DEVTBL(RS) 


DEVTBL (RS) RY 
PC gUMPTBL (RY) 


MA 

PASSCT 

PASSCT aeSuR 
,PASSCT 


es 
RS,PRINTS 


2$+10 
#5000, PASSCT 
MEXITI 

RS, PRINTS 


ae42,R1 
MEXIT1 


PC, (RI) 


LOOP 


;1S THE UNIT AVAILABLE” 
;BRANCH IF NO 


iUPoaTE Uk nT IN JMPTBL 


ABLE POINTER 
ae UNITS BEEN SCANNED? 
; INCREMENT ITERATION COUNTER 
AY COUNT 
; TEST TO’SEE IF Mg § IS THE Fi TIME 
HE FOUR 


RST 
HAVE D T TEST FUNCTIONS 
‘ON EACH iets a »WRITE,READO). 


; PRINT 1 neSSAGE 
‘GIVES A QUICK INDICATION THAT THE UNITS 
‘ARE UP & RUNNING. 


‘OR PASS a add 
; PRINT MESSAGE 


;GET RETURN ADDRESS 


;RETURN TO MONITOR 


; LOOP 


; THIS ROUTINE WILL SEEK HOME THE PACK WHOSE 
ADDRESS IS IN UNIT. 


HOME: 


SS: 
1$: 


7$: 
6$: 


UNIT, IRPCS1 
aRPDS 


#15,aRPCS 
#25,R4 

i$ 

#810, JRPOS 
es 


UNIT RY 
RITNCRY) , ATTNB 


sLOAD THE UNIT 

31S THE UNIT READY? 
; BRANCH IF READY 
;UNIT IS NOT RE 
;D0 A HOME SEEK 


WAIT FOR SEEK TO START 
:1§ SEEK UNDER WAY SET 
:SEEK UNDERWAY DID NOT SET 


:DERTMINE ATTENTION RESPONSE 
; BEGINNING OF DELAY 
‘LOOP TO ALLOW DRIVE 
:TIME TO BECOME READY 


GOe2 


| a 
MD-11-DZRPC-A, TI-DRIVE MACY11 30(1046) O6-JUN-77 14:48 PAGE 19 
poet BT eH 6 Sut T I: oF 
828 003120 005200 INC RO TIME OUT ATTENTION BIT 
829 903128 036777 000032 002572 BIT ATTNB, RPDS ‘DID ATTENTION SET? 
a Bosse | 904700 PEO Bey tine Bur 
003134 001367 BNE 6$ ANCH IF N 
833 003136 104400 HLT ATTENTION BIT DID NOT SET 
835 003140 005777 002540 33: TST JRPCS ;ANY DEVICE STATUS ERRORS? 
836 003144 {00001 BPL 4§ : NO-BRANCH 
837 003146 104400 HLT DEVICE STATUS ERROR AFTER HOME COMMAND 
838 O0031S0 116777 OO0004 on2s44 4S: MOVB = ATTNB, RPDS ‘CLEAR ATTENTION BIT 
833 003156 000207 RTS PC ‘EXIT 
841 003160 oo0000 ATTNB: O “CONTAINS ATTENTION BIT FOR CURRENT UNIT 
842 003162 001 002 004 ATTN: .BYTE 1,2,4,10,20,40,100,200 
843 OO3165 010 920 04a 
844 003170 100 200 
Q4E EVEN 
847 THIS TABLE DETERMINES WHERE CONTROL WILL GO FOR ANY 
848 PARTICULAR UNIT. THE FIRST WORD OF THE DEVICE TABLE 
849 1S USED AS A MODIFIER FOR A JSR INDIRECT INTO 
50 : THE FOLLOWING TABLE. 
852 003172 003202 JMPTBL: SEEK ;SEEK A RANDOM CYLINDER 
853 003174 003516 SEKC !SEE IF SEEK IS COMPLETE 
854 003176 004030 ITE WRITE RANDOM DATA 
B55 003200 004204 READE ‘READ AND VERIFY RANDOM DATA 
857 : THIS ROUTINE WILL GENERATE A RANDOM CYLINDER 
958 ‘RODRESS AND ISSUE A SEEK TO IT. THE FUNCTION 
859 ‘POINTER IN THE DEVICE TABLE WILL BE UPDATED TO 
B60 :CHECK FOR THE ATTENTION BIT. 
862 O16565 OOS464 OOSY62 SEEK: MOV DEVTBL+4(RS),DEVTBL+2(RS) ;SET uP CYLINDER FROM ADDR 
B63 903219 116777 002444 002470 a MOVB _- UNIT, aRPCS1 :SELECT THE UNIT 
865 003216 004767 176354 JSR ;GENERATE TWO RANDOM NOS. 
866 003222 016767 176466 002436 MOV CGAOR D DB RKt 
867 003230 016767 176456 O0°43e2 MOV HINUM’ WORK2 
868 003236 032777 O20000 O0e456 BIT #813, ORPDS :1S THIS AN fP03? 
869 003244 OD1410 BEQ 6$ BRANCH IF 
870 O00320% 042767 177000 o0e412 BIC #177000 WORK 1 
871 003254 022767 000625 O0c404 CMP 5, WORK | ;GENERATE A CYLINDER ADDRESS 
872 003262 O0e755 BLT te 
873 000407 BR 7§ 
74 003266 O42767 177400 002372 &$: BIC #177400, WORK 1 
875 003274 022767 000312 002264 CMP #312, WORKI ;IS NUMBER TOO LARGE? 
876 003302 002745 BLT 1$ “BRANCH IF YES 
877 026765 002356 o0S42 73: CMP WORK1, DEVTBL+2(R8) 
878 003312 001741 BEQ 1$ 
879 003314 016765 o02346 oOSs4E4 MOY WORK1 , DEVTBL+4(RS) : SAVE CYLINDER ADDRESS 
880 003322 016765 O0e342 O0S54b6 MOV WORK2, DEVTBL+6(RS) “USE A RANDOM DATA BASE 
B81 003330 004767 176242 ISR PC, RANDS ;GENERATE TWO RANDOM NOS. 
003334 O16767 176354 002324 MOV LONUM, WORK 1 


882 
883 O03342 016767 176344 002320 MOV HINUM, WORK2 


Boab OB TT BEARS DYt Td BRIE 


884 003350 042767 177760 002310 
88S ia 022767 000011 002302 
Be? bossee [ee7e? 000010 902072 
888 003374 O42767 177740 002266 
889 00 022767 000023 002260 
830 posit 002 
891 le 162767 000014 002250 
B36 003420 116767 O02244 002241 
894 003426 016765 002234 005470 
895 003434 005065 005472 
896 OO344O 016577 005464 O022%6 
897 003446 016577 005470 OO0ec4e 
898 O034S4 112777 000011 002222 
899 003462 012704 000025 
900 003466 
901 003470 001376 
902 003472 032 002060 002222 
903 003500 001001 
904 O44 
80S 003504 S265 005460 
$06 003510 005265 905460 
907 003514 000207 
908 
309 
910 
911 
Sle 
913 
914 003516 016704 9002136 
$1S O03S22 116467 003162 177430 
$16 003530 777 177424 002164 
$917 003536 001014 
$18 003540 65 005472 
919 003544 O22765 005000 005472 
$20 003552 101005 
$21 003554 116777 002100 002124 
S22 003562 104400 
$23 003564 000447 
Se4 003566 000207 
ee 

00 
$27 00 032777 002008 002110 
$58 Oosel2 bbI4be 
929 003614 104400 
431 Bose28 B0S799 oozoco 
933 00 1O4406 
$34 Bp 3e58 000425 
935 017704 O02066 

003636 O20465 005464 
937 003642 001440 
938 003644 104400 
935 OO3646 O04S67 175424 
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BIC 8177760, WORK 1 
CHP #11, WORK1 GENERATE A RANDOM SECTOR 
BEB worK1 

2s: BIC #177740, WORK2  ;GENERATE A RANDOM TRACK 
CMP #23, WORK2 
ar 
S #14, WORK2 

3S: MOVB  WORK2,WORKI+1  ;MERGE TRACK AND SECTOR ADDR 
MOV WORK1 , DEVTBL+10(RS) -STORE RANDOM DISK ADDRESS 
CLR DEVTBL+12(RS)  ;CLEAR TIMEOUT COUNTER 
MOV DEV TBL 4 RS). aRP appa LOAD CYLINDER ADDRESS 
MOV DEVTBL+10(RS3, JRPDA TRACK AND SECTOR 
MOYB #11, dRPCS INITIATE” A SEEK 
MOV #25; 

4g: DEC RA ;WAIT FOR SEEK TO START 
BIT #810, aRPDS 1S THE SEEK UNDERWAY? 
BNE S$ ;YES-B 
HLT : SEEK UNDERWAY DID NOT SET 

S$: INC DEVTBL(RS) ‘MODIFY FUNCTION POINTER TO 
INC DEVTBL (RS) “CHECK FOR SEEK COMPLETE 
RTS PC tEXIT 

; THIS ROUTINE IS ENTERED AFTER A SEEK HAS BEEN ISSUED. 

IT CHECKS THE ATTENTION FLAG - IF CLEAR IT UPDATES THE 

TIMEOUT COUNTER AND CHECKS IT. IF SET IT VERIFIES 

THE SEEK FUNCTIONED PROPERLY. 

SEKCK: MOV 
MOVB ve NtRY) ATTNB ;DETERMINE ATTENTION B17 
BIT ATTNB, JRPDS : TEST FOR ATTENTION FLAG 
INC DEVTBL+12(RS)  <UPDATE TIMEOUT COUNT ER 
CMP #5000, DEVTBE +12(RS) ;DID OPERATION TIMEOUT? 
BHI 2s :NOT_YET- 
MOVB UNIT, @RPCS1 SELECT UNIT 
HLT : SEEK TIMED OUT 
BR 4§ 

2$: RTS PC ;EXIT 

1$: MOVB  ATTNB, ARPDS sCLERR ATTENTION FLAG 
MOVB —sUNIT, RPCal UNIT 
BIT 4810, EK UNDERWAY CLEAR? 
BEQ if YES-BRANCH 
HLT 4 SEEK UNDERWAY DID NOT CLEAR 

38: ST dbecs ;ARE THERE ANY DEVICE STATUS ERRORS? 
BPL S$ : BRANCH-NO ER 
HLT . !DEVICE STATUS ERRORS 

cs: MOV aSUCA, RY ;GET CURRENT CYLENDER ADDRESS 
CHP RY ,DEVTBL#4(RS) ;DOES IT HATCH CYLINDER REGUESTED” 
HLT :SUCA AND CYL REQUESTED DID NOT COMPARE 
JSR RS, PRINTS ‘PRINT MESSAGE 
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940 003652 003756 MES10 
941 003654 016567 OSOS4E4Y 175712 MOV DEVTBL+4(RS), TTY 4 steneall ieee 
Hi ie BREE? tSeqga a wij i bxthr AERLARY 

945 003674 O10467 175674 MOV RY,T 

946 003700 004767 175452 JSR PC PRINT ; TYPE LOCATION WITH LEADING ZEROS 
aH 003708 aB1445 004000 oO02010 4s: gir 0911, RP fen ak 

94 pp 16 11277? 000015 001762 MOVB 815. aRPCS TSS HOME OMMAND 

850 003722 105777 001756 TSTB = aRPCS WAIT FOR DONE 

951 003726 100375 BPL <4 

952 003730 005777 001766 Ist SRDS ;WAIT FOR UNIT READY 

ae ob 373 APeaee 005460 10$: CL DEVTBL(RS) ;CLEAR FUNCTION POINTER 

cS tire pees popes 6S TNC CDEVTBLCRS) steel 

327 OOsebs 005460 INC DEVTBL (RS) UPDATE FUNCTION POINTER 

358 4 ATS PC EXIT 

960 756 005015 O42S522 052521 MESIO: .ASCIZ <15><12>’REQUESTED CYLINDER= ° 

961 003764 051505 042524 

962 2 O44514 O42116 

963 004000 051105 O20075 

964 004005 O15 O51412 041525 MESI1: .ASCIZ <15><12>’SUCA REGISTER= ° 

965 004012 O20101 O4eS22 O44507 

966 020 OS2123 Of110S 020075 

967 000 

368 004030 EVEN 

970 : THIS ROUTINE WILL WRITE A RANDOM SECTOR ON 

971 ?@ RANDOM TRACK. THE CYLINDER HAS ALREADY 

378 *BEEN SELECYED BY THE SEEK ROUTINE. 

974 004030 004767 000636 WRITE: JSR C, RANADR ;GENERATE A RANDOM BUFFER ADDR 
975 004034 012767 O00400 oD1E22 MOV wibd, WORK 

976 OO4042 916701 001630 MOV BUFF ’R1 

977 O04046 767 900336 JSR PC RANDAT ;GENERATE A RANDOM PATTERN 
978 OO40S2 116777 OO1602 001626 MOVB Unt SRPCSI SELECT THE UNIT 

973 032777 100000 001634 BIT #815’ ORPDS :IS THE SELECTED UNIT READY 
980 O04066 001003 BNE 1$ : YES- H 

981 004070 104400 HLT ; SELECTED UNIT NOT READY 

38 004072 000167 000100 IMP WRTER START SEQUENCE OVER 

984 004076 012777 177400 O01604 1S: MOV 8-400, IRPWC ;SETUP WORD COUNT REGISTER 
985 004104 016777 OO1S66 o01600 MOV BUFF. URPBA ‘SETUP BUS ADDR REGISTER 

2 is fice? poewre Sls © ay EEVTBIUURRSSogy aera ROPER 
988 004126 7 O01S46 CLR ae THER 0 Prag 

989 004132 012737 GOO200 177776 MOV PRI aePSW tate fou | 

33 poate tae Boat TS 001532 Soe INTERR PCS CLEAR ERROR OR ITE ITH INTERRUPT 
ag2 poids 767 pope JSR PC WAIT : TIMEOUT THE OPERATION 

993 OO41SE 005767 001512 TST INTERR ANY E 

994 004162 001005 BNE RTER :BRANCH IF YES 

995 004164 005265 oos4eo INC DEVTBL (RS) ‘UPDATE FUNCTION POINTER TO READ 


BRbRCOB ETS “A BEAMS YH [2:08 


9% 
997 


Sfaictsta 


ONOOO0O0000 
Os eee 
WONWUI£CWKO 


bb bh 0 0 bb bp bo pe pe hs be he oe 


SESE PERSE 


1030 


004170 
004174 


BOds63 


005460 
00S460 


20 
po0007 


000070 


001070 
001064 


000132 
000126 
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;READ AND VERIFY THE DATA WRITTEN 


READD: MOVB 


3$: CMP 


es: MOY 


RDCNT: GLa 


DEVTBL(RS) 
READD 
PEVTBL (RS) i BESTORE FUNCTION POINTER 
UNIT, @RPCS1 ; SELECT THE UNIT 

agls, RPDS ite, gt LECTED UNIT READY? 

- ‘SELECTED UNIT NOT READY 

#-400, JRPWC ;LOAD WORD COUNT REGISTER 
BUFF . SRPBA ‘LOAD BUS ADDR REGISTER 

#1000, JRPBA 
BEV TBC es (Be) aRPCA ;SET CYLINDER ADOR 
DEVTBL+10(RS3, SRPOR SETUP DISK ADDR. 
INT CLEAR TiTERMUPS FLAG 
INTERR ?CLEAR ERROR FLAG 
#117, dRPCS INITIATE READ WITH INTERRUPT 
PC, WAIT ; TIMEOUT THE OPERATION 
#814, JRPCS ‘ANY HARD ERRORS? 
ROCNT ‘BRANCH IF YES 
BUFF ,R1 
BUFF , Re 
#1000,R1 START OF PATTERN BUFFER 
(R1)+, (R2)+ ‘COMPARE DATA 
2s BRANCH-DATA, p10 NOT COMPARE 
R3 : INCREMENT 
#400,R3 : HAS BUF FER OPEN SCANNED 
RDOCNT P 
-2(R2) , EXPS 
eR) "RECS 

5, PRINTS ;PRINT MESSAGE 

+1 :DATA DID NOT VERIFY 

DEVTBL (RS) s INITIATE FUNCTION POINTER 


;GENERATE A RANDOM PATTERN 


RANDAT : td 


M 
RANDAL: MOV 
SHIFT; ASL 

R 


DEVTBL+6(RS) , RAND! 
DEVTBL+10(RS3, RAND2 


SHIFT 
RAND! , RO 


;GET RANDOM BASE 


;SETUP SHIFT COUNT 


;SHIFT RO LEFT AND 

ROTATE CARRY INTO LSB OF RO INTO R4 
; ROTATE ged OUT OF RY INTO Re 
:DECREMENT R3 

CONTINUE LOOP 

ADD IN ® 16 MAKE X1l29 


* 


a 
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MD-11-DZ2RPC-A, 
DZRPCC.P11 ‘18-MAY-77 12:50 
10S2 OO4460 oOOSSO4 ADC RY ; PROP GATE CARRY 
000064 ADD RAND2, R4 ; ADD N # TO MAKE x129 
15s Gees eens Ae Reg ERUPT Cony 
#1057, ; 
1058 bowie ADC RY mL, CARRY 
1 7% ADC R2 ‘PROPOGATE AGAIN 
1058 O04S00 062704 047401 ADD #47401,R4 ‘ADD HIGH CONSTANT 
106d Beebe besthe o00006 ASE, RE 
1061 oo4Si2 ADD R2;RO ;REPRIME RO WITH HIGH DIGIT 
1062 004514 ADC RY 
1063 004516 010067 oD0026 MOV RO, RAND1 
1064 O04S22 010021 MOV RO, (R1)+ ;STORE DATA IN BUFFER 
1065 004524 7? 001134 DEC WORK 
1066 OO4S30 001406 BEQ EXGEN 
1067 004532 010467 000014 MOV RY, RAND2 
1068 004536 010421 MOV RY’ (R1)+ ;STORE DATA IN BUFFER 
1069 OO4540 005367 001120 DEC WORK 
1070 OO4S44 001333 BNE RANDAL ;FILL ENTIRE BUFFER 
1071 004546 000207 EXGEN: RTS PC EXIT 
1073 oOO4SSO oo0000 RANDI: O 
1074 004552 000000 RAND2: O 
1076 ; THIS ROUTINE DETERMINES THE TOTAL AMOUNT OF AVAILABLE 
1077 :CORE WITHOUT USING MEMORY MANAGEMENT 
138 OO4SS4Y 012737 000340 177776 EXTMEN: MOV #PRI7 gaPsi ;LOCKUP PRIORITY LEVEL 
1080 OO¥562 012767 d04632 173214 Mov anAXREF , 4 ;SETUP IO BUS TRAP 
tee hatte BtSobs neath naar MOV arate, SAVE ; START WITH 4K 
1084 004610 peeree ISN ooo0se2 steel: one TCyaNG SAVE TEST FOR 2 x 
* ; 
1085 00 BNE ri TEST FOR IF PEss THAN 28K 
1 0 BR HAXRE 1 
1087 OO04622 062767 O20000 ooDD40 1S: ADD #20000, SAVE ;SETUP FOR NEXT REFERENCE 
1088 004630 000765 BR EXREF 
1030 ;ENTER HERE WHEN IO BUS ERROR OCCURS 
1092 004632 162767 O20000 000030 MAXREF: SUB #20000, SAVE 
1093 004640 012767 000006 173136 MAXRFIL: NOV #6,4 ;RESTORE I0 BUS TRAY 
tB3d Bpapes haanas a #42 jUNDER MONITOR CONTROL? 
1096 004656 001403 BEQ 1$ :BRANCH IF NO 
1097 OO4660 162767 005670 oD0002 SUB #3000. , SAVE ;ADJUST TOP OF CORE 
1098 OO4666 205 1$: RTS RS :EXIT-SAVE=MAXIMUM MEMORY 
1099 004670 o00000 SAVE: OO : HIGHEST AVAILABLE LOCATION 
1101 ;GENERATE A RANDOM BUFFER ADDRESS 
1103 OO4672 016704 177772 RANADR: MOV SAVER 
1104 004676 162704 bagesn SUB #ENDP, Ry ;DETERMINE BUFFER SIZE 
1105 004702 162704 O62000 SuB "2000, RY !ALLOW ROOM FOR DATA 
1106 OO4706 OO04767 174664 JSR RANDS :GENERATE TWO RANDOM NOS. 
1197 OO4712 916767 174776 oODD74E MOV CORUM, WORK 1 


Se re ee a ne ee ee ee a ee ee eee 
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1108 004720 042767 000001 000740 BIC #80, WORK! ;MAKE NUMBER EVEN 
1193 BRd5S8 RaSCes 488998 2S: Cay Ba TBRR sENSURE THAT THE RANDOM 

1111 004736 101005 BHI ADDRESS FITS WITHIN AVAILABLE 
11g 740 7? 000722 BIC A. WORK 1 : MEMORY 

Lil 744 1 CLC 

IE res Bes . § 

111 7 006250 000706 1S: ADD SENOP, WORK 1 

Li? aoirep 016767 000702 000710 wy 1’ BUFF ; SAVE BUFFER START ADDR. 

1119 ; TIMEOUT THE OCCURANCE OF AN INTERRUPT 

1121 004770 ooS000 WAIT: CLR RO 

ll22 004772 005200 2$: INC RO 

1123 004774 005767 000700 TST INT s HAS INTERRUPT OCCURED? 

1125 ppt BN 4s HA Bre R TION TIMED OUT? 

HS? GOSDDR IDNGOn +s Fes UTE TIMED OUT ON READ OR WRITE 
1128 neste rine sd 000660 INC INTERR int ERROR FLAG 

1129 005014 000207 1S: RTS PC EXIT 

1131 sENTERED UPON A DEVICE INTERRUPT. THIS ROUTINE 

1132 “WILL CHECK FOR AND REPORT DEVICE ERRORS 

1134 100000 00660 OSKINT: BIT aBl5, @RPCS sWHERE THER ANY ERRORS? 

1135 BEQ » BRANCH-NO ERRORS 

1136 000110 IMP REPORT ERROR 

He y 1$: AB Tey F3 

il 4 o0S460 C i OEY FB RS) ;IS THIS A WRITE? 

1140 BEG ‘BRANCH IF YES 

114} 001000 #oo0 R3 

114, 000630 38: CMP R3, JRPBA :DID THE BUS ADDR TERMINATE PROPERLY? 
Hus Boepes ry. OU i TERTERTS OF RPBA INCORRECT 

1145 ppepee 99 174204 eR RS, PRINTS a MESSAGE 

11468 005072 006125 MES13 

1147 005074 OO04S67 174176 JSR RS, PRINTS ;PRINT MESSAGE 

118 abe oe OiG.e7 174466 NOV R3,T 

11 005 106 67 174244 JSR PC’ BRINTR ; TYPE LOCATION WITH LEADING ZEROS 
1151 O0Sile 7 174160 JSR RS, PRINTS PRINT MESSAGE 

1152 005116 006171 MES19 

1153 005120 017767 OO0S6E 174446 MOV ORPBA, TTY 

1154 005126 004767 174224 JSR PC, PRINTR ; TYPE LOCATION WITH LEADING ZEROS 
T1ee BOEI36 DOBIE? DOOcEE s 3S wie sSET ERROR FLAG 

1138 ope tae prea DSKER: HLT enn INTERRUPT DISK ERROR 
Hes Geeles Beer GREEE! sce exruwr: ts WBueiny ne! ERROn FL 

1160 phe tee 635767 % B00 pppese is: Bt #815, JRPDS 115 THE UNIT READY 

1161 OOSiE4 001774 BEG 1$ NO-WAIT 

11be 005166 o0000e2 RTI !EXIT INTERRUPT 
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ZRPCC. Pll ‘18-MAY-77 12: 


> b= bb b= bb 2 2 2 0 2 2 be bb 2 0 bP pe 


> bb bb bP 0 2 2 be bb 2 be be bp 2 pe 


b+ b= b+ b= b= b— bb = b= Db bb bb b= P= 0 Bb bb bb 2 2 bb bb bh bh 


turororurururururur 


6 
0051 7 000002 1740S6 MSG: IT 1,HLTCTS ; TYPE ENT RE MSG? 

tee Bpet52 B8F785 Be Ot«dS t BRANCH IF HO 

167 174072 JSR RS, PRINTS : PRINT N MESSAGE 

1 6 174360 MOV IT, TTY 

153 Ooeete A recta JSR PC PRINTS ; TYPE LOCATION-SUPRESS ZEROS 

171 005220 004567 174052 JSR RS, PRINTS “PRINT MESSAGE 

17 005224 MES2A 

a fee ee tee mo pre 

175 ppesia 004567 174032 JSR RS; PRIN :PRINT MESSAGE 

76 005244 006003 MESA 

77 O052% 017767 OO0446 174320 MOV DRPER, TTY 

78 005254 004767 174076 JSR PC, PRINTR ; TYPE sLOcTION WITH LEADING ZEROS 

73 005260 O04S67 174012 JSR RS; PRINTS “PRINT MESSAGE 

Bt Weary 000412 174300 Nee CS, TTY 

gp ppesoe 767 174056 JSR C,PRINTR ; TYPE LOCATION WITH LEADING ZEROS 

83 005300 O04S67 173772 JSR RS; PRINTS ‘PRINT MESSAGE 

84 005304 006036 MES3 

8S 005306 O16567 O0S464 174260 MOV DEVTBL+4(RS), TTY 

86 005314 004767 174050 JSR PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 

87 005320 O04SE7 173752 JSR RS; PRINTS “PRINT MESSAGE 

88 005324 MESY 

89 005326 7 000340 CLR WORK3 

90 005332 116567 005471 000332 MOVB DEVTBL+11(RS), WORK3 

91 005340 016767 000326 174226 MOV WORK3, TTY 

$2 005346 004767 174016 ISR PC, PRINTS ; TYPE 7 LOCATION-SUPRESS ZEROS 

93 005352 004567 173720 JSR RS; PRINTS :PRINT MESSAGE 

94 005356 006065 MESS 

95 005360 116567 005470 000304 MOVB  DEVTBL+10(RS) , WORK3 

9% 005366 016767 000300 174200 MOV WORKS TTY 

97 605374 004767 173770 JSR PRINTS ; TYPE LOCATION-SUPRESS ZEROS 

98 005400 032767 OO00001 173646 1S: BIT WSO H HLTCT$ ?TYPE EXPECTED - RECEIVED? 

199 406 001001 BNE 2$ :BRANCH IF YES 

200 005410 000207 RTS PC 

201 o0S4le 2s: 

202 OOS4l2 OO4S67 173660 JSR RS, PRINTS ;PRINT MESSAGE 

203 OOS4I6 MES18 

204 420 016767 O00030 174146 MOV EXPS, TTY 

20S 005426 004767 173724 JSR PC, PRINTR ; TYPE LOCATION WITH LEADING ZEROS 

206 005432 004567 173640 JSR RS; PRINTS :PRINT MESSAGE 

207 005436 006171 MES19 

208 OOS4H4O 016767 O00012 174126 MOV RECS, TTY 

209 OOS446 004767 173704 JSR PC, PRINTR ; TYPE LOCATION WITH LEADING ZEROS 

10 O0S4S2 000207 RTS PC 

11 005454 900000 EXP§: 0 

le O054Sé o00000 0 

13 -DEVTBL IS A TABLE CONTAINING SLOTS FOR EACH OF EIGHT 

14 “POSSIBLE UNITS. DURING THE OPERATION OF THE PROGRAM 

1S RS IS USED AS A MODIFIER TO POINT INTO THE TABLE TO 

16 CT THE PROPER UNIT. EACH UNIT SLOT CONTAINS 

17 EIGHT ENTRIES(WORD) 

1g ii FUNCTION POINTER 

19 O=SEEK 
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us als AG 
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RANDOM BASE 


2@=SEEK IN PROGRESS 
4=WRITE 
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TIVE-UNIT IS NOT TESTED 


RANDOM T KANO rSECTOR ADDRESS 
CYLINDER RorEK TIMEOUT COUNTER 


"  =DEVTBL+20 
.2UNIT1+20 
.SUNIT2+20 


.=UNIT3+20 
. =UNIT4+20 
. =UNITS+20 
. =UNIT6+20 
. =UNIT7+20 


Fe 
i§ EYL INOER FG FO DRPSE=RbRLE fe VIOUS CYLINDER POSITION 


UNIT O SLOT 


;UNIT 1 SLOT 
;UNIT 2 SLOT 
;UNIT 3 SLOT 
UNIT 4 SLOT 
UNIT 5 SLOT 
;UNIT& SLOT 
UNIT 7 SLOT 


hed} CONSTANTS-MEMORY ASSIGNMENTS 


OO OOO 00000 


Tek 10 REGISTERS 
PCS:  i7671 


SUCR 
S AT esse 


; MESSAGES 


;CURRENT UNTI UNDER TEST 
;COUNTS EACH PASS THRU 8 UNITS 
; TEMPORARY STORAGE AREA 


+ TORT ING RROR FLAG 
TING ESS OF BUFFER 
s INTERRUPT FLAG 

LAG WORD 


DISK CONTROL REGISTER 


;DISK wore COUNT REGISTER 

:CURRENT ADDRSS REGISTER 

a CYLINDER ADDRESS REGISTER 
SK ein - analiaas 


URRENT R ADOR 
EM! VECTOR ADDR. 
ISK INTERRUPT STATUS 


BO3 
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MO-11-DZRPC-A, 
DZRPCC P11 
ATTN 003162 
ATTNB 003160 
BELL 001262 
BUFF _ Q0Sb76 
Bio = OoenOD 
ee 
Bld = O20000 
B14 = 040000 
BIS = 100000 
BS = OD0004 
B3 = 000010 
By = 900020 
BS = QOODYD 
BE = DO0I00 
BF = pog200 
Bs = OO0400 
BS = 001000 
=" = 900001 
ELRTAB DOZ4HE 
SEVTBL O0S460 
BISPLA= 177570 
DSKER 005142 
DSKINT OOEOIE 
EMTVEC= 000030 
ENDP 006250 
ERRFLG 001262 
ERROR OOl112 
ERRORS 001260 
001264 
ERRVEC= OO0004 
EX 004546 
E posusy 
EXREF 
EXTINT 005150 
_ PBS. 006252 


ERRORS DETECTED: 
pat SOE SOL AOS 1 at 


RUN-TIME: 7B. 
RUN-TIME’ Rh 


CORE USED: 33K 


EOF LOZRPCCSEG 
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SYMBOL TABLE 


- SML,OSKM:OZ2RPCC.P11 
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PSW 


= 177776 
004 


005724 
177570 


= 000020 
TBITvE= 000014 


vite E 005726 
TKB = 177562 
TKkKS 32 Frees 
tps = {97ee8 
T = 000034 
TTY 001574 
UNIT 005660 
UNIT1 pea 
UNIT2 S20 
UNIT3 O0SS4O 
UNITY OQ0S560 
UNITS O0S600 
UNITE O0S620 
UNIT? QOSE4O 
VECTOR= O0002S4 
WAIT 004770 
alone O00S664 
WORK 005670 
WORK3 005672 
004030 
WRTER OO4176 
= 000004 
SENDAD 003002 
x = 006252 
oe 0015590 
PREF 001 


‘ 464 
- PRL 061436 
.PTIT 001424 


